home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 1
/
Cream of the Crop 1.iso
/
SOUND
/
RAVELUTL.ARJ
/
W.MA
< prev
next >
Wrap
Text File
|
1990-04-26
|
972b
|
56 lines
@include \mbin\mh\wind.mh
#
#
# Demo of basic window types.
#
# Mos controller windows.
# Output windows.
#
int outwd
riff openWindows()
# 3 kinds of mos basic controller windows
void mosWindow(WVCO,0,0)
void mosWindow(WTIME,0,35)
void mosWindow(WRCC,0,60)
# 2 kinds of output/printf/debug windows
void outputWindow(WDEBUG,10,0,15,25,"printf") # halfway
outwd = outputWindow(WDISPLAY,16,10,18,30,"chord")
end
vco testit()
int rval
void openWindows()
for(;;)
mchoose(C,D,E,F,G,A,B,HC) q
rval = mchoose(0,1,2)
switch(rval)
case 0:
void printf("how the BLAZES are you today anyway\n")
void wprintf(outwd,"C chord")
end
case 1:
void printf("curioser and curioser\n")
void wprintf(outwd,"D chord")
end
case 2:
void dumptime()
void printf("what, me worry?\n")
void wprintf(outwd,"E chord")
end
end
end
end
vco second
for(;;)
LE w
LD w
LC w
end
end